Birth of Jesus Activity Center/Birth of Jesus Activity Center.iso/mac/data/babyj.dir/00286_Script_LC_btnUp

Text File | 1997-11-02 | 703b | 29 lines

-- class up buttons

property ancestor
property memID, rollmemID, clkmemID, clkEnable, difficulty

global gMouseDownList, gMouseUpList, gRolloverList, gHoldOverList, gLastRollover
global gNameListTop, gGameList

on new me, ch, ink, vis, stdm, rollm, clkm, htime
  set ancestor = new(script "LC_btnSprite", ch, ink, vis, stdm, rollm, clkm, htime)
  setAt gMouseDownList, ch, me
  setAt gMouseUpList, ch, me
  setAt gRolloverList, ch, me
  setAt gHoldOverList, ch, me
  return me
end

on handleAction me
  --  respond to click
  if gNameListTop > 1 then
    set gNameListTop = gNameListTop - 1
    drawNameList
  end if
end

on handleHoldOver me
  --  respond to Hold Over
end